home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / ushift.f < prev    next >
Encoding:
Text File  |  1989-07-07  |  588 b   |  19 lines
  1.       SUBROUTINE ushift(LINE)
  2. C
  3. C..   THIS ROUTINE UPSHIFTS AN INPUT LINE
  4. C
  5.       INTEGER*2 ICHAR1,ICHAR2,LINE(40)
  6.       DO 3 I=1,40
  7.       ICHAR1 = LINE(I) / 256
  8. C..   IF THE TOP BYTE IS BETWEEN 'a' AND 'z', UPSHIFTS IT ...
  9.       IF(.NOT.(ICHAR1 .GE. 97 .AND. ICHAR1 .LE.122)) GOTO 1
  10.       ICHAR1 = ICHAR1 - 32
  11.     1 ICHAR2 = LINE(I) - 256 * (LINE(I) / 256)
  12. C..   IF THE BOTTOM BYTE IS BETWEEN 'a' AND 'z', UPSHIFTS IT ...
  13.       IF(.NOT.(ICHAR2 .GE. 97 .AND. ICHAR2 .LE.122)) GOTO 2
  14.       ICHAR2 = ICHAR2 - 32
  15.     2 LINE(I) = (256 * ICHAR1) + ICHAR2
  16.     3 CONTINUE
  17.       RETURN
  18.       END
  19.